# name : freq risk diff (prop diff) for each stratum and common
# key : freq.riskdiff.propdiff
# contributor: Shuguang Sun
# --
ods output riskdiffcol2=${6:riskdiff} (where=(row EQ "Difference") keep=row risk ase lowercl uppercl);
ods output commonpdiff=${7:commonpdiff} (keep=column method value stderr lowercl uppercl);
proc freq data=${1:dtin};
table $0${4:stra} * ${2:trt} * ${3:response} / riskdiff(equal var=null cl=${5:$$(yas-choose-value '("WALD" "MN" "WILSON" "AC" "HA" "(WALD MN WILSON AC HA)" "WALD(CORRECT)" "MN(CORRECT=NO)" "AGRESTICAFFO" "EXACT" "SCORE(CORRECT=NO)" "NEWCOMBE" "NEWCOMBE(CORRECT)"))}${6: common});
run;
